(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     18295,        521]
NotebookOptionsPosition[     17999,        508]
NotebookOutlinePosition[     18339,        523]
CellTagsIndexPosition[     18296,        520]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$Messages", "=", 
    RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetDirectory", "[", 
    RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", "**", "**"}], "*", " ", "FIGURE", " ", "1"}], " ", 
   "*********)"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", " ", 
    RowBox[{
     RowBox[{"-", "\[Phi]"}], " ", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "/", "2"}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "best", " ", "response", " ", "given", " ", "private", " ", "belief", " ", 
    "qi", " ", "and", " ", "wedge", " ", "\[CapitalDelta]"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", 
     RowBox[{"qi_", ",", "\[CapitalDelta]_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{"qi", "/", "\[Phi]"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"1", "/", "2"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"\[CapitalDelta]", "/", "\[Epsilon]"}]}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "ex", " ", "ante", " ", "social", " ", "welfare", " ", "given", " ", 
    "planner", " ", "belief", " ", "q"}], "  ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"q", " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"p", "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", "p"}], ")"}]}], " ", "hence", " ", "p"}], " ", "=", 
     " ", 
     RowBox[{"q", "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", "q"}], ")"}]}]}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"W0", "[", 
     RowBox[{
     "q_", ",", "\[Gamma]_", ",", "\[CapitalDelta]_", ",", " ", "q1_", ",", 
      " ", "q2_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"q", "/", 
         RowBox[{"(", 
          RowBox[{"1", "+", "q"}], ")"}]}]}], ")"}], 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", "[", 
          RowBox[{"q1", ",", "\[CapitalDelta]"}], "]"}], "]"}], "+", " ", 
        RowBox[{"f", "[", 
         RowBox[{"x", "[", 
          RowBox[{"q2", ",", "\[CapitalDelta]"}], "]"}], "]"}]}], ")"}]}], 
     " ", "+", 
     RowBox[{
      RowBox[{"q", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", "q"}], ")"}]}], 
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Gamma]"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"q1", ",", "\[CapitalDelta]"}], "]"}], "+", 
        RowBox[{"x", "[", 
         RowBox[{"q2", ",", "\[CapitalDelta]"}], "]"}]}], ")"}]}]}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "optimal", " ", "wedge", " ", "\[CapitalDelta]", " ", "given", " ", 
    "average", " ", "private", " ", "belief", " ", "qa"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalDelta]star", "[", 
     RowBox[{"q_", ",", "\[Gamma]_", ",", " ", "qa_"}], "]"}], ":=", " ", 
    RowBox[{
     RowBox[{"\[Epsilon]", "/", "2"}], 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"1", "/", "2"}], " ", "+", " ", 
       RowBox[{
        RowBox[{"q", "/", "qa"}], " ", "*", "\[Gamma]"}], " ", "+", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"q", "-", "qa"}], ")"}], "/", "qa"}]}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Phi]", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p", "=", "0.05"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"q", "=", 
    RowBox[{"p", "/", 
     RowBox[{"(", 
      RowBox[{"1", "-", "p"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"W0", "[", 
        RowBox[{
        "q", ",", "\[Gamma]", ",", "\[CapitalDelta]", ",", " ", "q", ",", " ",
          "q"}], "]"}], ",", 
       RowBox[{"W0", "[", 
        RowBox[{"q", ",", "\[Gamma]", ",", "\[CapitalDelta]", ",", " ", 
         RowBox[{"q", "/", "2"}], ",", " ", 
         RowBox[{"q", "/", "2"}]}], "]"}], ",", 
       RowBox[{"W0", "[", 
        RowBox[{"q", ",", "\[Gamma]", ",", "\[CapitalDelta]", ",", " ", 
         RowBox[{"q", "/", "3"}], ",", " ", 
         RowBox[{"q", "/", "3"}]}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[CapitalDelta]", ",", " ", "0", ",", 
       RowBox[{"2", "*", 
        RowBox[{"\[CapitalDelta]star", "[", 
         RowBox[{"q", ",", "\[Gamma]", ",", 
          RowBox[{"q", "/", "2"}]}], "]"}]}]}], "}"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"1.2", "*", " ", 
         RowBox[{"W0", "[", 
          RowBox[{"q", ",", "\[Gamma]", ",", 
           RowBox[{"\[CapitalDelta]star", "[", 
            RowBox[{"q", ",", "\[Gamma]", ",", "q"}], "]"}], ",", " ", "q", 
           ",", " ", "q"}], "]"}]}]}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"HoldForm", "[", "\[CapitalDelta]", "]"}], ",", 
        RowBox[{"Subscript", "[", 
         RowBox[{"W", ",", "0"}], "]"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"AbsoluteThickness", "[", "3", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Dashing", "[", "0.01", "]"}], ",", 
          RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", "Dotted", ",", 
          RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], "}"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Method", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<AxisPadding\>\"", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Scaled", "[", ".01", "]"}], ",", "0"}], "}"}]}], "}"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"PlotLabels", "\[Rule]", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"{", "  ", 
         RowBox[{
          RowBox[{"HoldForm", "[", 
           RowBox[{"q", "=", 
            TagBox[
             SuperscriptBox["q", "*"],
             HoldForm]}], "]"}], ",", 
          RowBox[{"HoldForm", "[", 
           RowBox[{"q", "=", 
            RowBox[{
             RowBox[{"FractionBox", "[", 
              RowBox[{
               TagBox[
                SuperscriptBox["q", "*"],
                HoldForm], ",", "2", ",", " ", 
               RowBox[{"Beveled", "\[Rule]", " ", "True"}]}], "]"}], "//", 
             "DisplayForm"}]}], "]"}], ",", 
          RowBox[{"HoldForm", "[", 
           RowBox[{"q", "=", 
            RowBox[{
             RowBox[{"FractionBox", "[", 
              RowBox[{
               TagBox[
                SuperscriptBox["q", "*"],
                HoldForm], ",", "3", ",", " ", 
               RowBox[{"Beveled", "\[Rule]", " ", "True"}]}], "]"}], "//", 
             "DisplayForm"}]}], "]"}]}], "}"}], ",", "Above"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Automatic", ",", " ", "None"}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", "\[IndentingNewLine]", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Times New Roman\>\""}], ",", 
        "50", ",", 
        RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{"\"\<Fig1.pdf\>\"", ",", "%"}], "]"}], " ", ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"**", "**", "**"}], "*", " ", "FIGURE", " ", "2"}], " ", 
   "*********)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R", "[", 
    RowBox[{"y1_", ",", "y2_", ",", "eps_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"2", "^", 
      RowBox[{"(", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"eps", "-", "1"}], ")"}]}], ")"}]}]}], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"y1", "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"1", "/", "eps"}]}], ")"}]}], "+", 
       RowBox[{"y2", "^", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"1", "/", "eps"}]}], ")"}]}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"eps", "/", 
       RowBox[{"(", 
        RowBox[{"eps", "-", "1"}], ")"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"R1", "[", 
    RowBox[{"y1_", ",", "y2_", ",", "eps_"}], "]"}], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"R", "[", 
      RowBox[{"y1", ",", "y2", ",", "eps"}], "]"}], ",", "y1"}], "]"}]}], " ",
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"R2", "[", 
     RowBox[{"y1_", ",", "y2_", ",", "eps_"}], "]"}], "=", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"R", "[", 
       RowBox[{"y1", ",", "y2", ",", "eps"}], "]"}], ",", "y2"}], "]"}]}], 
   " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]", "=", "0.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Rbar", " ", "=", " ", "2"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nGrid", " ", "=", " ", "50"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"clim", " ", "=", " ", 
    RowBox[{"c1", "/.", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"\[Gamma]", "\[Equal]", " ", 
         RowBox[{"Rbar", " ", "-", " ", 
          RowBox[{"2", " ", "c1"}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Gamma]"}], ")"}], "/", "\[Alpha]"}]}]}], ",",
         " ", "c1"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"epsmin", " ", "=", "0.001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"epsmax", " ", "=", " ", "11"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"epsGrid", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"epsmin", " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"epsmax", "-", "epsmin"}], ")"}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", "-", "1"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"nGrid", "-", "1"}], ")"}]}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "nGrid"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c1Grid", " ", "=", "epsGrid"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"c2Grid", " ", "=", " ", "epsGrid"}], ";"}], "\[IndentingNewLine]",
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"eps", " ", "=", " ", 
      RowBox[{"epsGrid", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"c1Grid", "[", 
       RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
      RowBox[{"c1", "/.", " ", 
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Gamma]", "/", 
           RowBox[{"R2", "[", 
            RowBox[{"c1", ",", " ", 
             RowBox[{"c1", "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Gamma]"}], ")"}], "/", "\[Alpha]"}]}], 
             ",", "eps"}], "]"}]}], "\[Equal]", " ", 
          RowBox[{"Rbar", " ", "-", " ", 
           RowBox[{"R", "[", 
            RowBox[{"c1", ",", " ", 
             RowBox[{"c1", "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Gamma]"}], ")"}], "/", "\[Alpha]"}]}], 
             ",", "eps"}], "]"}]}]}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"c1", ",", " ", "1.6", ",", "2.5"}], "}"}]}], "]"}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"c2Grid", "[", 
       RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
      RowBox[{
       RowBox[{"c1Grid", "[", 
        RowBox[{"[", "i", "]"}], "]"}], " ", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Gamma]"}], ")"}], "/", "\[Alpha]"}]}]}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "nGrid"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"epsGrid", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", 
           RowBox[{"c1Grid", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "nGrid"}], "}"}]}], "]"}], ",", " ", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"epsGrid", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", "clim"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "nGrid"}], "}"}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"0.9", ",", "2.6"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\[Eta]", ",", 
        RowBox[{"Subscript", "[", 
         RowBox[{
          RowBox[{"OverBar", "[", "e", "]"}], ",", "1"}], "]"}]}], " ", 
       "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"AbsoluteThickness", "[", "10", "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"AbsoluteThickness", "[", "10", "]"}], ",", 
          RowBox[{"Dashing", "[", "0.03", "]"}]}], "}"}]}], " ", "}"}]}], ",",
      "\[IndentingNewLine]", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.9"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Method", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<AxisPadding\>\"", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Scaled", "[", ".01", "]"}], ",", "0"}], "}"}]}], "}"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"ImagePadding", "\[Rule]", "200"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Ticks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "5", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "1.5", ",", "2", ",", " ", "2.5"}], 
         "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ImageSize", "\[Rule]", "2000"}], ",", "\[IndentingNewLine]", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Palatino\>\""}], ",", "100", 
        ",", 
        RowBox[{"GrayLevel", "[", "0", "]"}]}], "}"}]}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Export", "[", 
    RowBox[{"\"\<Fig2.pdf\>\"", ",", "%"}], "]"}], " ", ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQvevrb02jfW8cS8x2uoNor0frQkC0gdkWMB3DcMzH
GEi3fLweAqJTJk6JB9F865JSQHTa5jtN+cffOKpJW7SC6KoHflNB9BdDlkUg
Wo9Na/rlu28csy2FV4PoF/caN4FohUqNByC65+z3FyD61EPXdyD6A5vOJxAd
xm+udgVIhzxo1ALRqRarwPRfey1XEO0zW90HRNv410WA6J/l7Bkg+sJ5+TwQ
fd1hB5gWYb0pfQ1I/5pwRAZEu9lxK4NojjMHQkB088alESC66sG8GBAds+5c
Coj+5NSRBqKfneHNA9H/TO62gWjebbtngOjbHf5zQbRTnoD8yWdvHJV+8SmA
aH7NlZ4g+rl6QACIZkq4GQGiWf6KR4HonStNG0B0hPfrJhC9r31vH4j+9kux
H0QDAPXV55E=
  "],
 CellLabel->
  "In[365]:=",ExpressionUUID->"39a9c2fc-2f31-4ea0-85ca-d3813436ade1"]
},
WindowSize->{1920, 1147},
WindowMargins->{{0, Automatic}, {1050, Automatic}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 17437, 486, 1997, "Input",ExpressionUUID->"39a9c2fc-2f31-4ea0-85ca-d3813436ade1"]
}
]
*)

